home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / FREENET / CROFT / GROUPS02 / !Groups / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1997-05-20  |  21KB  |  1,076 lines
  1.  >!RunImage file for !Groups   
  2.  David Croft, 1995-7
  3. ID$="0.20":I$="20-May-97":
  4. $+" (internal error code "+
  5. )+")":
  6. b$,"-new")>0
  7. b$,"-debug")>0
  8. c$=j$
  9. c$=j$
  10. f(s%,1,O%)
  11. c("Prelim load process took "+
  12. -a)+" cs"):
  13. )+" bytes free")
  14. a% 1280,b% 256:
  15. d$="wnaoc"
  16. d$="lwnaoc"
  17. ca%=3:n%=1:m$="":da%=0:ea%=-1:g%=-1:x%=-1:fa%=0:ga%=0:o%=0:S%=0:ha%=0:i%=0:y%=0:L%=0:ia%=0:t%=0:z%=0:ja%=0:W%=0:ka%=0:M%=0:X%=0:la%=0:I%=0:K%=0:ma%=0:q$="Groups":na%=
  18. 35,q$+"$Dir",a%,1024,0
  19. ,,b:o$=
  20. c(a%,0),b)
  21. 6}j$="<none>":r$="":oa%=0:pa%=
  22. :qa%=
  23. :ra%=537984:sa%=537985:T%=-1:
  24. 262336,200,&4B534154,q$
  25. c("My ID is &"+
  26. ~P%):
  27. ba:s$=
  28. a("backup"):u$=
  29. a("scrap"):
  30. s$=""
  31. 0,"backup: token not found in Messages file"
  32. u$=""
  33. 0,"scrap: token not found in Messages file"
  34. b(1,Q%,
  35. a("g-loading")):
  36. H(Q%):
  37. b(7,ta%,D$+" ("+I$+")"):
  38. ea:f=
  39. (o$+".Config"):
  40. (o$+".Config"):
  41. #f,j$:
  42. #f,"800101":
  43. #f,"000000":
  44. #f,"1100":
  45. #f=0:d$+="h":
  46. b("welcome",D$))
  47. c$=j$:
  48. h$="800101":
  49. i$="000000":
  50. e$="1100":
  51. (e$)<4:e$+="0":
  52. c$<>j$
  53. 131080,17,c$
  54. ua%;e%:
  55. ua%<>1
  56. d$+="h":
  57. o("listgone"):c$=j$
  58. c$=j$
  59. f(s%,1,O%):
  60. f(s%,3,O%):
  61. f(j%,3,O%):
  62. f(j%,5,O%)
  63. e$,4,1)="1"
  64. i(o$+".code"):
  65. _% J%:va%=_%:wa%=_%+4:xa%=_%+8:ya%=_%+16:za%=_%+20:
  66. 131080,16,o$+".code",_%,0
  67. a("code")
  68. a("code")
  69. 131129,,"OS_SynchroniseCodeAreas"
  70. c%;e%:
  71. 110,1,_%,_%+J%
  72. i(f$):
  73. J%,e%,ua%:
  74. 131080,17,f$
  75. ua%,,,,J%;e%:
  76. ua%<>1
  77. J%=-1
  78. 262343,48,a%
  79. L(Y%):
  80. ((Y%=17
  81. Y%=18)
  82. a%!16=0)
  83. ((Y%=17
  84. Y%=18)
  85. a%!16=0
  86. a%!4<>P%)
  87. 262343,49,a%
  88. L(Y%):
  89. L(Y%):
  90. !a%=k%
  91. !a%=l%
  92. !a%=o%
  93. 262341,,a%
  94. 262342,,a%:
  95. !a%=o%
  96. !a%=Q%
  97. fa%=1
  98. fa%=2
  99. 17,18:
  100. 131113,27,"<Wimp$Scrap>",,2:
  101. a("rxdied"))
  102. a%!16
  103. fa%=1
  104. fa%=2
  105. a%!20=d%
  106. b(4,d%,
  107. c(a%,44)):
  108. fa%=1
  109. 10:b$="":
  110. b$=" -new"
  111. #(a%!20),"Filer_Run "+o$+b$
  112. 1282:
  113. 262338:
  114. c(a%,28)=q$
  115. a%!4<>P%
  116. 9!a%=20:a%!12=0:a%!16=0:
  117. 262375,17,a%,a%!4:d$+="o":
  118. 262337:ga%=
  119. ja:Aa%=!a%:Ba%=a%!4:R%=a%!8:`%=a%!16:
  120. a%!12
  121. 64,16:
  122. p(j%,Aa%-64,Ba%)
  123. g%<>-1
  124. h(g%),0)
  125. 256,1024:c%=
  126. c%>-1
  127. k(-1)
  128. p(j%,Aa%-64,Ba%)
  129. p(s%,Aa%-64,Ba%)
  130. p(j%,Aa%-64,Ba%)
  131. x%<>-1
  132. l(x%))
  133. 256,1024:
  134. g(Ca%)
  135. g(2,d%)
  136. b(4,d%,j$):
  137. b(4,d%,""):
  138. s(4,d%)
  139. b(8,d%,"800101"):
  140. b(10,d%,"000000")
  141. g(d%)
  142. (R%=4
  143. R%=1)
  144. e(1,Da%),R%=4)
  145. Ha%!24=0:a%!28=0:$(a%+32)=m$+
  146. n(T%,da%,(37+
  147. (m$))
  148. 262356,,-1
  149. 262356,,-1
  150. ma:u%=a%!24:
  151. u%=13
  152. d(2,Z%,1):
  153. d(2,Z%,0)
  154. 262364,u%
  155. Aa:Ea%=21:
  156. e$,4,1)="1"
  157. Ea%=12
  158. ea%>-1
  159. g%>-1
  160. h(g%),0)
  161. k(g%+1):
  162. k(g%-1):
  163. k(g%+Ea%):
  164. 415:c%=g%-Ea%:
  165. k(c%):
  166. f-1):
  167. k(0):
  168. (u%>31
  169. u%<128)
  170. u%=395
  171. u%=21
  172. "|x$=
  173. e(0,v%):
  174. c("Search string is >"+x$+"< last_search$=>"+r$+"< last_pos%="+
  175. (oa%)):Fa%=0:
  176. (r$))=r$
  177. (r$)>0
  178. Fa%=oa%
  179. Fa%<>-1
  180. p(Fa%,x$):
  181. ea%>-1
  182. i(1,v%,0):
  183. k(ea%)
  184. i(1,v%,1):
  185. r$=x$:oa%=ea%
  186. c("Invalid key &"+
  187. (u%)):
  188. 262364,u%
  189. u%=13
  190. d(3,Da%,1):
  191. e(1,Da%),
  192. d(3,Da%,0)
  193. 262364,u%
  194. d(2,U%,1):a%!24=0:a%!28=0:$(a%+32)=m$+
  195. n(T%,da%,(37+
  196. (m$))
  197. 262356,,-1:
  198. d(2,U%,0)
  199. d(3,U%,1):
  200. 262356,,-1:
  201. d(3,U%,0)
  202. 262364,,u%
  203. a%!4=10
  204. d(14,d%,1):R%=4:
  205. d(14,d%,0)
  206. d(15,d%,1):
  207. g(d%):
  208. d(15,d%,0)
  209. 262364,u%
  210. f7!a%=24:a%!12=0:a%!16=ra%:a%!20=10:
  211. 262375,17,a%,T%
  212. 262365,P%,&4B534154:
  213. 262341,,a%:ga%=0
  214. u&!b%=l%:
  215. 262347,,b%:
  216. e$,4,1)="1"
  217. y>b%!4=a%!4+30:b%!12=b%!4+850:b%!8=a%!8+30:b%!16=a%!8+30+256
  218. :b%!4=a%!4+594:b%!12=b%!4+486:b%!8=a%!8+118:b%!16=a%!8+816
  219. ?b%!28=a%!28:
  220. 262341,,b%:!b%=k%:
  221. 262347,,b%:
  222. e$,4,1)="1"
  223. @b%!4=a%!4+30:b%!12=b%!4+850:b%!8=a%!8+392:b%!16=a%!8+392+416
  224. :b%!4=a%!4+30:b%!12=b%!4+486:b%!8=a%!8+118:b%!16=a%!8+816
  225. b%!28=l%:
  226. 262341,,b%:
  227. &!b%=v%:
  228. 262347,,b%:
  229. e$,4,1)="1"
  230. ?b%!4=a%!4+30:b%!12=a%!4+918:b%!8=a%!8+356:b%!16=a%!8+356+36
  231. :b%!4=a%!4:b%!12=a%!12:b%!8=a%!8-38:b%!16=a%!8-2
  232. b%!28=k%:
  233. 262341,,b%
  234. a%!28=!b%:
  235. 262341,,a%:
  236. 304075:C%=g%:E%=0:F%=0:G%=0:
  237. E%=!y%:F%=!i%:G%=S%
  238. :E%=b%:!E%=0:G%=1:F%=b%+4:$(F%)=
  239. b("rep","full gone")+
  240. 2:G%=L%:
  241. 1E%=b%:!E%=0:G%=1:F%=b%+4:$(F%)=
  242. a("nonew")+
  243. b("rep","red new index")):G%=0
  244. E%=!z%
  245. b("rep","red new text")):G%=0
  246. F%=!t%
  247. 3:G%=W%:
  248. 3E%=b%:!E%=0:G%=1:F%=b%+4:$(F%)=
  249. a("nomatch")+
  250. b("rep","red find index")):G%=0
  251. E%=!M%
  252. b("rep","red find text")):G%=0
  253. F%=!i%
  254. D%=a%:
  255. :!a%=l%:
  256. 262344,,a%
  257. c%<>0:
  258. 262346,,a%
  259. 304076:
  260. b("rep","red feed index")):
  261. b("rep","red feed index")):
  262. 304075:C%=x%:D%=a%:
  263. 1E%=b%:!E%=0:G%=1:F%=b%+4:$(F%)=
  264. a("nosub")+
  265. :E%=!K%:F%=!I%:G%=X%
  266. 304076:
  267. 393424,,0:!a%=
  268. :$(a%+4)=
  269. $+" (internal error code "+
  270. )+"), about to quit."+
  271. 262367,a%,1,q$:
  272. 393424,,0:!a%=
  273. :$(a%+4)=
  274. $+" (internal error code "+
  275. )+"), press Cancel to quit program."+
  276. =44$(a%+4)="No room (due to "+
  277. $+"), increase WimpSlot."
  278. 262367,a%,3,q$
  279. c("Error: "+
  280. $+" (code "+
  281. )+")"):
  282. a(b$):
  283. 393424,,0:!b%=1:$(b%+4)=b$+
  284. 262367,b%,17,"Message from "+q$:
  285. da:m%=&7009031:O%=&7409031:
  286. Ga% 220:Ha%=0:Ia%=ca%:
  287. s% (28+(24*Ia%)):
  288. D("Source",s%,15):
  289. Ja%=1
  290. ca%:Ka%=m%:
  291. Ja%=3
  292. Ka%=O%
  293. T(s%,
  294. a("source"+
  295. (Ja%)),0,-1,Ka%,0):
  296. E(s%):Ia%=8:
  297. V% (28+(24*Ia%)):
  298. D("Big-8",V%,4):
  299. e(V%,"alt",0,-1,m%):
  300. e(V%,"comp",0,-1,m%):
  301. e(V%,"misc",0,-1,m%):
  302. e(V%,"news",0,-1,m%):
  303. e(V%,"rec",0,-1,m%):
  304. e(V%,"sci",0,-1,m%)
  305. e(V%,"soc",0,-1,m%):
  306. e(V%,"talk",0,-1,m%):
  307. E(V%):Ia%=9:
  308. j% (28+(24*Ia%)):
  309. D(q$,j%,16):
  310. e(j%,"Info",0,ta%,m%):
  311. e(j%,"Source",0,s%,m%):
  312. e(j%,"Main hierarchies",0,V%,m%):
  313. e(j%,"Find a group",0,-1,m%)
  314. e(j%,"Wildcard search",2,Da%,m%):
  315. e(j%,"Newsgroups list",0,Z%,O%):
  316. e(j%,"Configure...",0,-1,m%):
  317. e(j%,"Help",0,-1,m%):
  318. e(j%,"Quit",0,-1,m%):
  319. E(j%):
  320. Ha%>200
  321. 0,"Indirected overflow!"
  322. D(J$,h%,p%):$h%=
  323. 0,12):h%?12=7:h%?13=2:h%?14=7:h%?15=0:h%!16=(p%+1)*16:h%!20=44:h%!24=0:r%=28:
  324. e(h%,t$,e%,La%,Ma%):
  325. (t$)>11
  326. T(h%,t$,e%,La%,Ma%,0):
  327. EJh%!r%=e%:h%!(r%+4)=La%:h%!(r%+8)=Ma%:$(h%+(r%+12))=
  328. 0,12):r%+=24:
  329. T(h%,t$,e%,La%,Ma%,Na%):
  330. Na%<(
  331. (t$)+1)Na%=
  332. (t$)+1
  333. N~h%!r%=e%:h%!(r%+4)=La%:h%!(r%+8)=Ma%+(1<<8):h%!(r%+12)=Ga%+Ha%:h%!(r%+16)=0:h%!(r%+20)=Na%:r%+=24:$(Ga%+Ha%)=t$:Ha%+=Na%:
  334. E(h%):h%!(r%-24)=h%!(r%-24)+128:
  335. p(h%,Oa%,Pa%):
  336. 262356,,h%,Oa%,Pa%:Qa%=Oa%:Ra%=Pa%:Sa%=h%:
  337. 262357,,Sa%,a%,b%:a$=
  338. c(b%,0):
  339. 262351,,b%:Ta%=(b%!8=1):
  340. Sa%=s%
  341. U(!a%+1)
  342. Sa%=j%
  343. a%!0=1
  344. a%!4>-1
  345. U(a%!4+1)
  346. Sa%=j%
  347. a%!0=2
  348. a%!4>-1
  349. a$,".")+1)+".*",
  350. "Info":
  351. p(ta%,b%!0-64,b%!4+64)
  352. "Configure...":
  353. "Find a group":
  354. :pa%=
  355. :!a%=o%:
  356. 262347,,a%:
  357. b(0,v%,""):
  358. s(0,v%):
  359. V(j%,4,0)
  360. "Help":
  361. 262366,"Filer_Run "+o$+".!Help"
  362. "Quit":na%=
  363. p(Sa%,Qa%,Ra%)
  364. Q:pa%=
  365. g(v%):
  366. W(j%,4,0):ea%=g%:r$="":oa%=g%:
  367. i(1,v%,1):
  368. V(Ua%,w%,Va%):!(Ua%+28+((w%-1)*24))=!(Ua%+28+((w%-1)*24))
  369. 1<<Va%:
  370. W(Ua%,w%,Va%):!(Ua%+28+((w%-1)*24))=!(Ua%+28+((w%-1)*24))
  371. 1<<Va%:
  372. f(Ua%,w%,e%):
  373. (!(Ua%+28+((w%-1)*24)+8)
  374. 1<<8)>0
  375. e%+=1<<8
  376.  !(Ua%+28+((w%-1)*24)+8)=e%:
  377. ca:Wa%=2560:
  378. Xa% Wa%:Ya%=Xa%:
  379. 262361,,o$+".Templates":ta%=
  380. d("info"):Ca%=
  381. d("message"):U%=
  382. d("question"):d%=
  383. d("config"):Q%=
  384. d("waiting"):v%=
  385. d("find"):Da%=
  386. d("wcard"):Za%=
  387. d("mainv"):_a%=
  388. d("mainh"):k%=
  389. d("source"):l%=
  390. d("feed")
  391. d("grablist"):
  392. 262362:
  393. i(1,v%,1):
  394. d(K$):
  395. 262363,,a%,Ya%,Xa%+Wa%,-1,K$,0
  396. ,,Ya%:
  397. 262337,,a%
  398. c%:=c%
  399. v(f%,c%):!a%=f%:
  400. 262347,,a%:
  401. a%!28=-1
  402. 262341,,a%:
  403. f%=o%
  404. H(f%):!a%=f%:
  405. 262347,,a%:
  406. F:`a%=a%!12-a%!4:ab%=a%!16-a%!8:a%!4=(bb%/2)-(`a%/2):a%!8=(cb%/2)-(ab%/2):a%!12=a%!4+`a%:a%!16=a%!8+ab%:a%!28=-1:
  407. 262341,,a%:
  408. w(f%):!a%=f%:
  409. 262347,,a%:
  410. F:`a%=a%!12-a%!4:ab%=a%!16-a%!8:
  411. 262356,,f%,(bb%/2)-(`a%/2),(cb%/2)+(ab%/2):
  412. g(f%):!a%=f%:
  413. 262342,,a%:
  414. f%=o%
  415. g(k%):
  416. g(l%):
  417. g(v%)
  418. f%=v%
  419. X(f%):!a%=f%:
  420. 262347,,a%:
  421. (a%!32
  422. 1<<16)>0
  423. 262368,,a%:
  424. 262353,-1,a%!4,a%!8,a%!12,a%!16
  425. t(f%,db%,p%):eb%=(db%*32):p%=(p%*16)+8:
  426. e$,4,1)="1"
  427. eb%<416
  428. eb%=416
  429. eb%<256
  430. eb%=256
  431. p%<850
  432. p%=850
  433. eb%<698
  434. eb%=698
  435. p%<486
  436. p%=486
  437. 4!a%=0:a%!4=-eb%:a%!8=p%:a%!12=0:
  438. 262359,f%,a%:
  439. b(q%,f%,b$):!b%=f%:b%!4=q%:
  440. 262350,,b%:$(b%!28)=b$:b%!8=0:b%!12=0:
  441. 262349,,b%:
  442. e(q%,f%):!b%=f%:b%!4=q%:
  443. 262350,,b%:=$(b%!28)
  444. d(q%,f%,c%):!b%=f%:b%!4=q%:b%!8=c%<<21:b%!12=1<<21:
  445. 262349,,b%:
  446. g(q%,f%):!b%=f%:b%!4=q%:
  447. 262350,,b%:
  448. (b%!24
  449. 1<<21)>0
  450. i(q%,f%,c%):!b%=f%:b%!4=q%:b%!8=c%<<22:b%!12=1<<22:
  451. 262349,,b%:
  452. Y(q%,f%,c%):!b%=f%:b%!4=q%:b%!8=c%<<23:b%!12=1<<23:
  453. 262349,,b%:
  454. s(q%,f%):
  455. 262354,f%,q%,,,-1,
  456. e(q%,f%)):
  457. Fa(q%,f%):!b%=f%:b%!4=q%:
  458. 262350,,b%:
  459. 262353,f%,b%!8,b%!12,b%!16,b%!20:
  460. c(fb%,gb%):z$="":
  461. (fb%?gb%)>=32
  462. (z$)<255:z$+=
  463. (fb%?gb%):gb%+=1:
  464. o(b$):
  465. a(b$)):
  466. I(b$):
  467. b(1,Ca%,b$):
  468. w(Ca%):
  469. c(b$):
  470. QL!b%=(25+
  471. (b$))
  472. -4:b%!12=0:b%!16=534402:$(b%+20)=b$+
  473. 262375,17,b%,0:
  474. 53,-1,4
  475. ,,hb%:
  476. 53,-1,5
  477. ,,ib%:
  478. 53,-1,11
  479. ,,bb%:
  480. 53,-1,12
  481. ,,cb%:bb%=(bb%+1)<<hb%:cb%=(cb%+1)<<ib%:
  482. wa:c%=0:jb%=0:
  483. 272001,c%,a%,16
  484. c%:a$=
  485. c(a%!4,0):
  486. a$="Help"
  487. jb%=!a%
  488. c%<0:
  489. jb%=0
  490. 262366,"Filer_Run Resources:$.Apps.!Help"
  491. :a%!8=4:a%!12=-2:
  492. 262375,6,a%,jb%
  493. sa:q%=a%!36:k$="":
  494. a%!32
  495. ta%:k$="info"
  496. Ca%:k$="message"
  497. U%:k$="question"
  498. d%:k$="config"
  499. Q%:k$="waiting"
  500. v%:k$="find"
  501. Da%:k$="wcard"
  502. o%:k$="main"
  503. k%:k$="source"
  504. l%:k$="feed"
  505. k$=""
  506. a("badhelp")
  507. a(k$+
  508. (q%)):
  509. a$=""
  510. a(k$)
  511. a(k$)+"|m"+a$
  512. M!a%=(25+
  513. (a$))
  514. -4:a%!12=a%!8:a%!16=1283:$(a%+20)=a$:
  515. 262375,17,a%,a%!4:
  516. kb% 256:A$=o$+".Messages":
  517. 267520,,A$
  518. e%,,J%:
  519. lb%=0
  520. lb% J%
  521. 30,6,,,17+
  522. ,,mb%:$(mb%+16)=A$:
  523. 267521,mb%,mb%+16,lb%:
  524. a(v$):
  525. 398594,mb%,v$
  526. ,,w$;e%:
  527. b(v$,B$):
  528. 398594,mb%,v$,kb%,256,B$
  529. ,,w$;e%:
  530. q(v$,B$,L$):
  531. 398594,mb%,v$,kb%,256,B$,L$
  532. ,,w$;e%:
  533. 267524,mb%:
  534. ea:a%!24=54:
  535. n(0,0,28):
  536. n(nb%,ob%,pb%):
  537. nb%=-1
  538. o("nbgone"):
  539. <!a%=pb%:a%!12=0:a%!16=ra%:a%!20=ob%:
  540. 262375,17,a%,nb%:
  541. ta:y$=
  542. (a%!20):
  543. y$,1)
  544. "9","2","1":
  545. q("comms"+
  546. y$,1),y$,
  547. c(a%,32))):
  548. y$="111"
  549. a%!20
  550. 0:T%=a%!4:
  551. a%!24<54
  552. a("nb-old")):
  553. d$,1)="w"
  554. 10:T%=-1:
  555. g(o%):
  556. H(Q%):d$="w"+d$+"oc":
  557. 120:d$+="a":
  558. 130:d$+="a":
  559. c("get_feed"):
  560. 304077
  561. 304064,I%,0,P%:
  562. 304077
  563. 304064,K%,0,P%:
  564. 304081:d$="A"+
  565. (d$)-1):X%=0:la%=0:a%!24=1:
  566. n(T%,100,36):ma%=0:
  567. b("rep","add feed text")):
  568. b("rep","add feed index")):
  569. c(a%,36):
  570. g$," ")>0
  571. g$," ")-1)
  572. g$=""
  573. t(l%,X%,la%):
  574. X(l%):
  575. d$,1)="A"
  576.     x%=-1
  577. 304069,I%,(ma%+
  578. (g$)+1):
  579. 304069,K%,((X%+1)*4):
  580. 304075:$((!I%)+ma%)=g$:?((!I%)+ma%+
  581. (g$))=0:!((!K%)+X%*4)=ma%:
  582. 304076:
  583. 304081:X%+=1:ma%+=(
  584. (g$)+1):
  585. (g$)>la%
  586. c("get_new"):
  587. 304077
  588. 304064,t%,0,P%:
  589. 304077
  590. 304064,z%,0,P%:
  591. 304081:d$="N"+
  592. (d$)-1):L%=0:ia%=0:a%!24=
  593. (h$):a%!28=
  594. (i$):
  595. n(T%,110,32):
  596. i(5,o%,1):ja%=0:
  597. b("rep","add new text")):
  598. b("rep","add new index")):
  599. c(a%,32):
  600. g$," ")>0
  601. g$," ")-1)
  602. c("newgroup: "+g$):
  603. g$=""
  604. i(5,o%,0)
  605. d$,1)="N"
  606. 304069,t%,(ja%+
  607. (g$)+1):
  608. 304069,z%,((L%+1)*4):
  609. 304075:$((!t%)+ja%)=g$:?((!t%)+ja%+
  610. (g$))=0:!((!z%)+L%*4)=ja%:
  611. 304076:
  612. 304081:L%+=1:ja%+=(
  613. (g$)+1):
  614. (g$)>ia%
  615. c("Was asked to load list, list_loaded%="+
  616. (qa%)):
  617. c$<>j$
  618. 263872:J%=
  619. i(c$):
  620. c("Need to allocate "+
  621. (J%)):
  622. 304077
  623. 435136,i%,J%,P%
  624. i%=0:
  625. a("nomem")):
  626. c("full_text_anchor = &"+
  627. ~(i%)):
  628. 304075:
  629. 8,16,c$,!i%,0:A%=!i%:B%=(!i%)+J%:S%=
  630. (wa%):
  631. c("full_ent%="+
  632. (S%)):
  633. 304076:
  634. 304077
  635. 435136,y%,S%*4,P%
  636. y%=0:
  637. a("nomem")):
  638. 304075:A%=!i%:B%=!y%:C%=S%:ha%=(
  639. (xa%))-1:
  640. 304076:
  641. 304081:qa%=
  642. j(1):
  643. f(s%,1,m%):
  644. f(s%,3,O%):
  645. f(j%,3,m%):
  646. f(j%,5,m%):
  647. 263873
  648. j(2):
  649. f(s%,1,O%):
  650. f(s%,3,O%):
  651. f(j%,3,O%):
  652. f(j%,5,O%)
  653. c("unload_list with TextA=&"+
  654. ~i%+" IndexA=&"+
  655. ~y%):qa%=
  656. i%<>0
  657. 304065,i%:
  658. 304078,i%:i%=0
  659. y%<>0
  660. 304065,y%:
  661. 304078,y%:y%=0
  662. c("unload_new with TextA=&"+
  663. ~t%+" IndexA=&"+
  664. ~z%):L%=0:ia%=0:
  665. t%<>0
  666. 304065,t%:
  667. 304078,t%:t%=0
  668. z%<>0
  669. 304065,z%:
  670. 304078,z%:z%=0
  671. c("unload_feed with TextA=&"+
  672. ~I%+" IndexA=&"+
  673. ~K%):X%=0:la%=0:
  674. I%<>0
  675. 304065,I%:
  676. 304078,I%:I%=0
  677. K%<>0
  678. 304065,K%:
  679. 304078,K%:K%=0
  680. c("unload_fnd with IndexA=&"+
  681. ~M%):W%=0:ka%=0:
  682. M%<>0
  683. 304065,M%:
  684. 304078,M%:M%=0
  685. m(w%):
  686. b("rep","show full text")):=""
  687. b("rep","show full index")):=""
  688. c(!i%,!(!y%+(w%*4)))
  689. k(w%):
  690. b("rep","show new text")):=""
  691. b("rep","show new index")):=""
  692. c(!t%,!(!z%+(w%*4)))
  693. n(w%):
  694. b("rep","show find text")):=""
  695. b("rep","show find index")):=""
  696. c(!i%,!(!M%+(w%*4)))
  697. l(w%):
  698. b("rep","show feed text")):=""
  699. b("rep","show feed index")):=""
  700. c(!I%,!(!K%+(w%*4)))
  701. A(p$,qb%):
  702. p$=""
  703. m$=p$:
  704. e$,1)="1"
  705. 2da%=120:
  706. b(1,U%,
  707. b("c-addgrp",
  708. m$,35))):
  709. w(U%)
  710. :a%!24=0:a%!28=0:$(a%+32)=m$+
  711. n(T%,120,(37+
  712. (m$))
  713. xa(p$):
  714. p$=""
  715. m$=p$:
  716. e$,2,1)="1"
  717. 2da%=130:
  718. b(1,U%,
  719. b("c-remgrp",
  720. m$,35))):
  721. w(U%)
  722. :a%!24=0:a%!28=0:$(a%+32)=m$+
  723. n(T%,130,(37+
  724. (m$))
  725. va:rb%=
  726. e$,3,1)="1"
  727. ia%>0
  728. c$<>j$
  729. 263872:
  730. b(1,Q%,
  731. a("g-merge")):
  732. v(Q%,-1):
  733. 41,26,c$,s$,128+2:f=
  734. (s$):
  735. Ja%=0
  736. L%-1:
  737. k(Ja%):
  738. 131113,27,u$,,2:
  739. 262380,-1,-1
  740. ,sb%,tb%:
  741. tb%<(64*1024)
  742. a("nomemsort")):
  743. 41,26,s$,c$,128+2:rb%=
  744. 262380,-1,tb%:
  745. 262366,"%Run <Groups$Dir>.PostMerge "+c$+" "+s$+" { > "+u$+" }":
  746. 262380,-1,sb%:J%=
  747. i(u$):
  748. 41,26,s$,c$,128+2:f=
  749. (u$):M$=
  750. b("sortfailed",M$)):rb%=
  751. 41,27,s$,,2
  752. 131113,27,u$,,2:d$+="l":
  753. 263873
  754. !a%=3:
  755. 7,14,a%:
  756. 193,a%,b%,256,"%24%MI%SE"
  757. 193,a%,b%,256,"%YR%MN%DY"
  758. h$:f=
  759. (o$+".Config"):b$=
  760. #f,h$:
  761. #f,i$:
  762. b(8,d%,h$):
  763. b(10,d%,i$):d$+="n":
  764. d$+="c":
  765. j(fb%):n%=fb%:g%=-1:
  766. Ja%=1
  767. Ja%=fb%
  768. V(s%,Ja%,0)
  769. W(s%,Ja%,0)
  770. :c%=0:b$="No":
  771. t(k%,S%,ha%):c%=S%
  772. t(k%,L%,ia%):c%=L%:
  773. Y(5,o%,0)
  774. t(k%,W%,ka%):c%=W%:b$="None"
  775. b(6,o%,
  776. b("num"+
  777. n%,b$)):
  778. n%<>2
  779. Y(5,o%,1):
  780. Fa(5,o%)
  781. =)!a%=k%:
  782. 262347,,a%:
  783. (a%!32
  784. 1<<16)>0
  785. A a%!20=0:a%!24=0:
  786. 262341,,a%
  787. X(k%):
  788. b(2,o%,
  789. a("source"+
  790. (fb%))):
  791. U(fb%):
  792. j(fb%):
  793. B(C$,ub%):
  794. C$=""
  795. 262356,,-1:
  796. o("badpattern"):
  797. 304077
  798. 304064,M%,0,P%:A%=a%:$a%=C$+
  799. 0:B%=A%+
  800. (C$):E%=y%:F%=i%:G%=S%:H%=M%:W%=0:ka%=ha%:vb%=
  801. (za%):W%=ob%!vb%:
  802. W%+" matched pattern."):ka%=ob%!(vb%+4):
  803. 262356,,-1
  804. j(3):
  805. f(s%,3,m%):
  806. p(r%,b$):
  807. r%=-1
  808. 304075:A%=0:
  809. 1:A%=!y%:B%=S%:D%=!i%
  810. 2:A%=!z%:B%=L%:D%=!t%
  811. 3:A%=!M%:B%=W%:D%=!i%
  812. C%=r%:
  813. C%>B%
  814. C%=B%
  815. {+E%=a%:$(a%)=b$+
  816. (ya%)
  817. c%=-1
  818. 304076:=c%
  819. d$=""
  820. d$,1)
  821. T%<>-1
  822. b(1,Q%,
  823. a("g-newsbase"))
  824. v(o%,-1):
  825. g(Q%):
  826. b(1,Q%,
  827. a("g-feed")):
  828. b(1,Q%,
  829. a("g-new")):
  830. b(1,Q%,
  831. a("g-full")):
  832. w(Ca%):
  833. m:d$=
  834. (d$)-1):
  835. b(4,d%,c$):
  836. b(8,d%,h$):
  837. b(10,d%,i$):
  838. d(18,d%,
  839. e$,1))):
  840. d(19,d%,
  841. e$,2,1))):
  842. d(20,d%,
  843. e$,3,1))):
  844. d(21,d%,
  845. e$,4,1))):
  846. c$=j$
  847. v(d%,-1):
  848. c$=j$
  849. s(8,d%)
  850. s(4,d%)
  851. d(2,d%,1):
  852. i(4,d%,1):
  853. i(20,d%,1):
  854. 262355,,a%:
  855. !a%=d%
  856. a%!4=4
  857. s(8,d%)
  858. d(2,d%,0):
  859. i(4,d%,0):
  860. i(20,d%,0):
  861. N:E$=c$:F$=h$:G$=i$:H$=e$:c$=
  862. e(4,d%):
  863. g(2,d%)
  864. c$=j$
  865. e(8,d%):i$=
  866. e(10,d%):e$=
  867. g(18,d%))+
  868. g(19,d%))+
  869. g(20,d%))+
  870. g(21,d%)):wb%=
  871. c$<>j$
  872. 131080,17,c$
  873. ua%;e%:
  874. ua%<>1
  875. o("listgone"):wb%=
  876. nxb%=
  877. h$,2)):yb%=
  878. h$,3,2)):zb%=
  879. h$,2)):
  880. (h$)<>6
  881. zb%<1
  882. zb%>31
  883. yb%<1
  884. yb%>12
  885. xb%<80
  886. o("datefmt"):wb%=
  887. bAb%=
  888. i$,2)):yb%=
  889. i$,3,2)):Bb%=
  890. i$,2)):
  891. (i$)<>6
  892. Ab%>23
  893. yb%>59
  894. Bb%>59
  895. o("timefmt"):wb%=
  896. (o$+".Config"):
  897. #f,c$:
  898. #f,h$:
  899. #f,i$:
  900. #f,e$:
  901. c$<>E$
  902. h$<>F$
  903. i$<>G$
  904. d$+="n":
  905. e$,4,1)<>
  906. H$,4,1)
  907. e$,4,1)="1"
  908. t(l%,X%,la%):
  909. j(n%):
  910. v(o%,0)
  911. g(d%)
  912. :h$=F$:i$=G$:c$=E$:e$=H$
  913. r:Cb%=
  914. j:p$="":
  915. Cb%<=S%-1
  916. m(Cb%)
  917. Cb%<=L%-1
  918. k(Cb%)
  919. Cb%<=W%-1
  920. n(Cb%)
  921. ua:n$=
  922. n$=""
  923. !b%=k%:
  924. 262347,,b%:!a%=0:a%!4=5:a%!8=b%!4:a%!12=-((Cb%+1)*32)+(b%!16-b%!24)-2:a%!16=b%!12:a%!20=-(Cb%*32)+(b%!16-b%!24)-2:
  925. F:a%!24=0-(Aa%-(b%!4)):a%!28=0:a%!32=bb%+(b%!12-Aa%-2):a%!36=cb%:
  926. 262352,,a%:fa%=1:
  927. 262351,,a%:
  928. a%!12=l%
  929. A(n$,0)
  930. j:!a%=k%:
  931. 262348,,a%:y=Ba%-a%!16+a%!24+4:=(a%!44-y)
  932. o:!a%=l%:
  933. 262348,,a%:y=Ba%-a%!16+a%!24+4:=(a%!44-y)
  934. b("url",n$)
  935. b%!0=56:b%!12=0:b%!16=1:b%!20=a%!12:b%!24=a%!16:b%!28=!a%:b%!32=a%!4:b%!36=
  936. (n$):b%!40=4095:$(b%+44)="Newsgroup"+
  937. 262375,17,b%,a%!12,a%!16:
  938. a%!24>=
  939. .c$b%=n$:
  940. 262385,P%,b%,a%!4,a%!20,
  941. (n$):a%!12=a%!8:a%!16=7:a%!24=
  942. (n$):
  943. 262375,17,a%,a%!4:n$=""
  944. pa:f=
  945. c(a%,44)):
  946. #f,n$;:
  947. 8,18,a%+44,4095:a%!12=a%!8:a%!16=3:
  948. 262375,18,a%,a%!4:
  949. za:!b%=Z%:
  950. 262347,,b%:!a%=Z%:a%!4=0:
  951. 262350,,a%:!a%=b%!4+a%!8:a%!4=b%!16+a%!12:a%!8=b%!4+a%!16:a%!12=b%!16+a%!20:
  952. 271360,(1<<7)+(1<<6),1,"file_fff",a%:fa%=2:
  953. 271361:
  954. 262351,,a%:l$=
  955. e(1,Z%):
  956. l$,".")>0:l$=
  957. l$,".")+1):
  958. :b%!0=(49+
  959. (l$))
  960. -4:b%!12=0:b%!16=1:b%!20=a%!12:b%!24=a%!16:b%!28=!a%:b%!32=a%!4:b%!36=
  961. (l$):b%!40=4095:$(b%+44)=l$+
  962. 262375,17,b%,a%!12,a%!16:
  963. qa:l$=
  964. c(a%,44):
  965. l$,"<Wimp$Scrap")>0
  966. a("noscrap")):
  967. _(l$):
  968. P:l$=
  969. e(1,Z%):
  970. l$,".")=0
  971. a("howtosave")):
  972. _(l$):
  973. _(N$):
  974. 262366,"TaskWindow ""<Groups$Dir>.GrabList -o "+N$+""" -wimpslot 32k -name GrabList -quit":
  975. k(N%):
  976. N%<-1
  977. N%=g%
  978. T!a%=k%:
  979. 262348,,a%:
  980. g%>-1
  981. 262353,k%,a%!44,-(((g%+1)*32)+8),a%!52,-((g%*32)-4)
  982. g%=N%:
  983. g%=-1
  984. 262353,k%,a%!44,-(((g%+1)*32)+8),a%!52,-((g%*32)-4):
  985. La(g%):
  986. h(g%):
  987. b(0,v%,b$):
  988. 262354,v%,0,,,-1,
  989. (b$):
  990. i(1,v%,0):ea%=g%:r$=b$:oa%=g%:
  991. La(Fa%):b$=
  992. h(Fa%):
  993. 131129,,"Wimp_TextOp"
  994. c%;e%:
  995. c("Hey! Wimp_TextOp SWI is &"+
  996. ~c%):
  997. (b$)*16
  998. 262393,1,b$,0
  999. [Db%=-(Fa%*32):Eb%=-((Fa%+1)*32):!a%=k%:
  1000. 262347,,a%:Fb%=a%!16-a%!8:
  1001. Db%>a%!24
  1002. a%!24=Db%
  1003. Eb%<((a%!24)-Fb%)
  1004. a%!24=Eb%+Fb%
  1005. a%!20+(a%!12-a%!4)>p%+16
  1006. a%!20>0
  1007. a%!20=0
  1008. a%!20+(a%!12-a%!4)<p%+16
  1009. a%!20=p%+16-(a%!12-a%!4)
  1010. 262341,,a%:
  1011. h(c%):b$="":
  1012. 1:b$=
  1013. m(c%)
  1014. 2:b$=
  1015. k(c%)
  1016. 3:b$=
  1017. n(c%)
  1018. f:c%=0:
  1019. 1:c%=S%
  1020. 2:c%=L%
  1021. 3:c%=W%
  1022. ya(N%):
  1023. N%>(X%-1)
  1024. N%=-1
  1025. N%=x%
  1026. U!a%=l%:
  1027. 262348,,a%:
  1028. x%<>-1
  1029. 262353,l%,a%!44,-(((x%+1)*32)+8),a%!52,-((x%*32)-4)
  1030. x%=N%:
  1031. x%=-1
  1032. 262353,l%,a%!44,-(((x%+1)*32)+8),a%!52,-((x%*32)-4):b$=
  1033. l(x%):
  1034. 131129,,"Wimp_TextOp"
  1035. c%;e%:
  1036. c("Hey! Wimp_TextOp SWI is &"+
  1037. ~c%):
  1038. (b$)*16
  1039. 262393,1,b$,0
  1040. YDb%=-(x%*32):Eb%=-((x%+1)*32):!a%=l%:
  1041. 262347,,a%:Fb%=a%!16-a%!8:
  1042. Db%>a%!24
  1043. a%!24=Db%
  1044. Eb%<((a%!24)-Fb%)
  1045. a%!24=Eb%+Fb%
  1046. a%!20+(a%!12-a%!4)>p%+16
  1047. a%!20>0
  1048. a%!20=0
  1049. a%!20+(a%!12-a%!4)<p%+16
  1050. a%!20=p%+16-(a%!12-a%!4)
  1051. 262341,,a%:
  1052. K:o%=_a%:
  1053. g(Za%):!a%=l%:
  1054. 262348,,a%:
  1055. 262339,,a%:a%!32=(a%!32
  1056. 1<<30):
  1057. 262337,,a%+4
  1058. l%:!a%=k%:
  1059. 262348,,a%:
  1060. 262339,,a%:a%!32=(a%!32
  1061. 1<<30):
  1062. 262337,,a%+4
  1063. J:o%=Za%:
  1064. g(_a%):!a%=l%:
  1065. 262348,,a%:
  1066. 262339,,a%:a%!32=(a%!32
  1067. 1<<30))
  1068. 1<<28:
  1069. 262337,,a%+4
  1070. l%:!a%=k%:
  1071. 262348,,a%:
  1072. 262339,,a%:a%!32=(a%!32
  1073. 1<<30))
  1074. 1<<28:
  1075. 262337,,a%+4
  1076.